Reverse Code Engineering RCE CD +sandman 2000/ReverseCodeEngineeringRceCdsandman2000.iso/RCE/Svd Messageboard Arcive/ephemeric/data/MBPREP.ZIP/MAINLIST.PL

Perl Script | 1999-08-22 | 380 b | 15 lines

#!/bin/perl -n
#get list of (main) pages from 1st one

$on++ if (/<INPUT TYPE="submit" NAME="GOTO" VALUE="Go To Thread">/i);
if (1==$on) {
  if (s/<OPTION VALUE="(\d+)"//) { $url[$i++] = $1; }
  if (s,<A HREF="(http://[^&]+&TL=),,) {
     $h = $1;
     for ($i=1;$i<=$#url; $i++) {       #skip 1st = current page
       print "$h$url[$i]\n";
     }
     last;
  }
}